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

##</code><code>##

my $num = $frameDesc =~ /(\d+)$/ ? $1 : 0;
print FH "FTP $num\n";