Ok here's a little quiz.

$_='000(*&£$^IYGFSD000*&£$YV£*Q£J$^$£"0000£("*&$^';

I want to see if anyone can print (000) 000-0000 (US phone number) using $_ above and get the code to die if there are not 3 groups of digits (000 000 0000) in under 48 characters of perl code including spaces.

print "(000) 000-0000";

So on what mailing list/newgroup did you see this one, then?

- wil

>>print "(000) 000-0000";<<

That's your answer?

Note : using $_

No, that was my sarcastic answer.

My real answer was; why do you want to know? On what mailing list or newsgroup have you seen this? And, shouldn't you be at College or something? ;-)

- wil

I forgot to point out I did it in 48 characters including spaces.

split/\D+/;@_==3?print"($_[0]) $_[1]-$[2]":die;

Yeah, that's my point -- why?

- wil

Doh.

Theres a flaw in my code as if $_ begins with something other than the area code @_ == 4 so it dies.

Also it wouldn't work if $_ was 0000000000

Back to the drawing board.