duff's and b10m's answers are what you are looking for for this job, but if something similar comes up in the future, you might want to look at the a2p program that comes with Perl.

[~]$ echo '{gsub(/lrw......./,"\n"); print}' | a2p
#!/opt/perl/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
                        # this emulates #! processing on NIH machines.
                        # (remove #! line above if indigestible)

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
                        # process any FOO=bar switches

$, = ' ';               # set output field separator
$\ = "\n";              # set output record separator

while (<>) {
    chomp;      # strip record separator
    s/lrw......./\n/g;
    print $_;
}
[download]

Basicly it takes an awk script, and turns it into a Perl script. It doesn't do as good of a job as a human programmer would, but gives you a good starting point to go from.

You can get more info about it from the a2p man page.