Select Code to Download

#!/usr/bin/perl -w

...
$line =~ s/^\$mypic\[0\] = \"(\w{3})\"\;$/$1/g;

print "$line\n";