#!/usr/bin/perl  -w

print "Select Option:\n\n";
print "[1]: Reverse Place [ Pass:Email To Email:Pass ]\n\n";
print "Option:";

$option = <STDIN>;
chomp($option);
print "Specify  Input  File: ";
$input_filename = <STDIN>;
chomp($input_filename);
open(INFILE, $input_filename);
print "Specify  Output File: ";
$output_filename = <STDIN>;
chomp($output_filename);
open(OUTFILE, '>' . $output_filename);
if ($option == 1) {
while ($line = <INFILE>) {
$_ = $line;
/(.+?):(.+?)\n/;
$a = $2;
$b = $1;
$a =~ s/^\s+//;
$a =~ s/\s+$//;
$b =~ s/^\s+//;
$b =~ s/\s+$//;
print OUTFILE $a, ':', $b, "\n"; 
}
}