Select Code to Download

example 11/12/2009
        1 and 2 is done

output 11/12/2009
       one and two is done

sample AU: mark bautista 
output should be AU: Mark Bautista

my $filename = "input.txt";
open my $file, '<', $filename;
@fileinput=<$file>;
close($file);

foreach $line(@fileinput) { my $Cword=($line); if($Cword=s/(^AU:\s[a-z
+]\s\[a-z])/(^AU:\s[A-Z]\s[A-Z])/g) { print $Cword; }

foreach $line(@fileinput)
{my $testdate=($line);
if($testdate =~s/(\w{3})\s(\d{2})\,\s(\d{4})/$3\/$1\/$2/) { print $tes
+tdate;