use Acme::Bleach; $/ = undef; $_ = <>; s/.*^\s*use\s+Acme::Bleach\s*;\n//sm; print Acme::Bleach::brighten($_);