if ($frameDesc =~ /\d+$/ ) {
   print FH "FTP ". $+ . "\n";
} else {
   print FH "FTP 0\n";
}