Help for this page

Select Code to Download


  1. or download this
    #win quotation
perl -e "print join '|',split /[{}\s]+/,$ARGV[0]" "{31 0} {26 0} {6 10
+} {17 0}"
|31|0|26|0|6|10|17|0
  2. or download this
    perl -e "print map{s/\s?{/I am /g;s/(\d{1,3})\s/$1 years old and /g;s/
+(\d{1,3})}/$1 months old.\n/g;qq($_\n)}@ARGV" 
        "{31 0} {26 0} {6 10} {17 0}"
...
I am 6 years old and 10 months old.
I am 17 years old and 0 months old.