$ perl -E 'say for <DATA>; __END__'
$