perl -n - gash.txt << END
    # insert fun Perl here
    print qq(Quote ': double: ");
END