Select Code to Download

#! /usr/bin/perl
use warnings;
...
        print "$_\n";
    }
}

John|123
Jane|456
John|123
Jane|456
Jack|789

John Doe,123,a0
Jane Smith,456,b1