changing newline character from Mac to *nix

#!/usr/bin/perl

while (<>) {

$_ =~ s/\015/\012/gs;
print $_;


}