(jeffa) 2Re: obtaining the three leftmost characters of a string

You can combine the last two lines:

my ($first_three) = $phone =~ /(\d{3})/;
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on (jeffa) 2Re: obtaining the three leftmost characters of a string Download Code