[comp.lang.perl] Sans letters, sans digits

worley@compass.com (Dale Worley) (02/06/91)

$] =~ /^.(.)/;
$: = $+;
$:++; $:++;

$] =~ /^...(.)/;
$_ = $+;
$~ = $_;
$, = $_;

$_++; $_++;
$" = $_;
$, .= $_;

$_++; $_++;
$" = $_ . $";
$\ = $_;
$; = $_;

$_++; $_++; $_++;
$" .= $_;
$\ = $_ . $\;
$, = $_ . $,;

$_++; $_++; $_++;
$, .= $_ . $;;

$_++; $_++; $_++;
$~ .= $_;

$_++;
$" .= $_;
$~ .= $_;

$_++; $_++; $_++;
$\ .= $_;
$, .= $_;

$_++;
$; = $_;

$_++;
$; .= $_;
$~ .= $_ . $\;

$_++;
$: .= $_ . $;;

$] =~ / (....)/;
$\ = $+;

$= = ++$-;
$-++;
`$" $: $~ $\\ $,, $=>&$-`

Dale Worley		Compass, Inc.			worley@compass.com
--
Never sleep with someone who shows more overt symptoms than you.
-- Strata