#!/usr/bin/perl -nl
    chomp;
    @record = split /\|/, $_;
    print "INSERT INTO table (foo, bar, baz)"
        , " VALUES ('$record[0]', '$record[1]', '$record[2]')";