Help for this page

Select Code to Download


  1. or download this
    $s = 'aaaabaaaabaaaaabaaaab';;

$s =~ /^((.*).*)\2$/ and print "$1/$2";;
aaaabaaaaba/aaaabaaaab
  2. or download this
    $s =~ /^((.*).*)\1*\2$/ and print "$1/$2";;
aaaabaaaaba/aaaabaaaab
  3. or download this
    $s = 'aaaabaaaabaaaaabaaaabaaaaabaaaab';;

$s =~ /^((.*).*)\1*\2$/ and print "$1/$2";;
aaaabaaaabaaaaabaaaaba/aaaabaaaab