Select Code to Download

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

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