Select Code to Download

#!/usr/bin/perl
use strict;
...
printf "\t";
printf <IN>;
close (IN);

Below is the output of 'echo "This_filename_has_2  2_spaces.txt" |'
        This_filename_has_2 2_spaces.txt