open FH, '<', $file or die "could not open '$file' $!";

my @arr;
while ( <FH> ) {
    chomp;
    push @arr, $_ if s!^\s+(?=//)!! ;
    }

foreach ( @arr ){
    print "$_\n";
    }