#!/usr/bin/perl -w

use strict;

my $line = q|$mypic[0] = "one"|;

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

print "$line\n";