$ perl -Mstrict -Mwarnings -E '
    use autodie qw{:all};
    open my $fh, q{>}, q{pm_user_input_file};
    while (<>) {
        print {$fh} $_;
    }
'
1,2,3
q,w,e
a,s,d
z,x,c