perl -e '$bla="this_is_some_intersting_stuff"; $bla =~ s/(this_(is_(some)_intersting)_stuff)/$1\n$2\n$3/; print "$bla\n";'