#!perl -w 
use strict;
my $res='<a href="text1" >
         <a href="text2" >
         <a href="text3" >';        
my @parse = $res=~/href="(\w+)" >/g;
foreach my $text ( @parse ) 
{     
      print $text."\n";
}

есть скрипт на perl, но он закодирован байткодом. подскажите какой прогой можно его раскодировать? или дайте ссылку на нужный материал