use warnings;
my $foo = undef;
print 'Switch statements を調べさせても解決せんだろ' if $foo =~ /.*/;