in reply to How to extract the first elemnet from an integer type value ???

in the spirit of reverse-golf silly answers: 
my $num = 100;
my $extracted = do { open 0 and $_ = ( grep /my \$num = \d/, <0> )[0] 
+and /(\d)/; $1; };

[download]
  • Comment on Re: How to extract the first elemnet from an integer type value ???
  • Download Code

In Section Seekers of Perl Wisdom