#!c:Perlbinperl.exe -w
<br>
use strict;
<br>

#  This program replaces the dashes in a Social Security number with nothing
<br>
# and writes the results to a text file.  
<br>
# Written by Matt R; released under the GPL
<br>
my $test;
<br>
#  open file with Social Security numbers with dashes
<br>
open (FILE, 'socialsecuritynumbers.txt') || die "Cannot open file: $!";
<br>
while (<FILE>) {
<br>
	# read each line of the file into $test
<br>
	$test = <FILE>;
<br>
	print "n The string is now: $test.n";
<br>
	# The next 2 lines run the substitution operator 2 times on the string.  
<br>
	# The dash gets replaced by nothing 2 times.  
<br>
	$test =~ s/-//;
<br>
    $test =~ s/-//;
<br>
	print "n The string is now: $test.n";
<br>
	# Open the 2nd output file for *appending* not writing
<br>
	open (FILE2, ">>socialsnodash.txt") || die "Cannot open file: $!";
<br>
	# Write the string to the file
<br>
	print FILE2 $test;
<br>
	close FILE2
<br>
	}
<br>
print "n";
<br>