s![^abcdefghijklmnopqrstuvwxyz0123456789_\-]!!gi

##</code><code>##

$ perl -MDigest -le "  $sha256 = Digest->new(q!SHA-256!); $sha256->addfile( *STDIN ); print $sha256->hexdigest " < test
a505e6720df306ab46a6b24c458b8b77b60bffa18d831f4796ba1b736bb44c6c