perl -MData::Dumper -e "$foo=qq(\nHello);$foo =~ s/.//s; print Dumper \$foo"