#!/usr/local/bin/perl

# new line at the end of each print, automatically
$\ = "\n";

$string = "soggy vegetables in the crisper";

print qq(\U$string \E$string);