Помогите плз с обработкой текста

Не верх совершенства, но работает :) Замени в нижеследующем скрипте my_file, left, right на необходимые и юзай. Можно сделать скрипт с параметрами, но сразу не выдам - забыл.
#!/usr/bin/perl -w
use strict;
open (FILE, "my_file") || die "can't open file:$!";
my $left_word="left";
my $right_word="right";
while ($a=<FILE>)   {
        if ($a=~/$left_word(.*)$right_word/) {                        
                print ("$1\n");
        };
};
close FILE || die "can't close file:$!";