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