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