Help for this page

Select Code to Download

Select or download this

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

Select or download this

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