JEEN · October 10, 2016 06:58 · JEEN · Oct 10, 2016
diff --git a/move_all.pl b/move_all.pl
 use strict;
 use warnings;
 use File::Copy;

 open my $fh, "<", $ARGV[0] or die $!;
 while(<$fh>) {
    s/[\r\n]//g;
    my ($col1, $col2) = split "\t", $_;
    $col2 =~ s/[^a-zA-Z0-9-_]/_/g;
    move($col1, $col2);
 }
	use strict;
	use warnings;
	use File::Copy;

	open my $fh, "<", $ARGV[0] or die $!;
	while(<$fh>) {
	s/[\r\n]//g;
	my ($col1, $col2) = split "\t", $_;
	$col2 =~ s/[^a-zA-Z0-9-_]/_/g;
	move($col1, $col2);
	}