package FileNamePrep;

use strict;
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION = 0.1;
@ISA = qw(Exporter);
@EXPORT = ();
@EXPORT_OK = qw(func1 func2);
%EXPORT_TAGS = ( DEFAULT => [qw(&func1)],
		 Both => [qw(&func1 &func2)]);

sub func1 { 
	for(my $file1=<>){
		chomp($file1);
		if(m/\"/){ 
			chop($file1); 
			$file1=reverse($file1); 
			chop($file1); 
			$file1=reverse($file1);
	}
}
}

sub func2 { 
	for(my $file2=<>){
		chomp($file2);
		if(m/\"/){ 
			chop($file2); 
			$file2=reverse($file2); 
			chop($file2); 
			$file2=reverse($file2);
	}
}
}

1;