here is the perl script. the functionality is to look into the text files and pull out the numbers and wrtite SDR infront of them. e.g suppose if a number is 95846 it will pull it out and write as SDR95846 and puts the result in the text file. The only issue is if the number is uptil five didgits it runs well but if it is 6 digits it does not pull it. If you can please modify the code so that it pulls the number having six digits.
our $VERSION = 0.1;
# Get the options from the command line
GetOptions( 'help|?' => \$help,
'version' => \$version );
# Short version information.
if( $version )
print "SDR Filter -- Version $VERSION\n";
} # if
# Output help info
outputUsage() if $help || $#ARGV;
my $output_string = undef;
chomp; # avoid \n on last field
#s/^\s+//; # Strip leading & trailing whitespace