Help for this page
$file =~ s/(\w{2})(\d+)/$1 . lc($1) . $2 . lc("yy")/e;
$file =~ s/(\w{2})\d+/$1 . lc($1) . "yy"/e;
$file =~ s/(\w{2})\d+/\L$1yy/;