Help for this page

Select Code to Download


  1. or download this
    s/^(.)(.)(.*)/$2$1$3/s;           # 12345 -> 21345
s/^(.)(.)(.)(.*)/$1$3$2$4/s;      # 12345 -> 13245
s/^(..)(.)(.)(.*)/$1$3$2$4/s;     # 12345 -> 12435
s/^(...)(.)(.)(.*)/$1$3$2$4/s;    # 12345 -> 12354
  2. or download this
    s/^()(.)(.)(.*)/$1$3$2$4/s;
  3. or download this
    my $dots = "..";
s/^($dots)(.)(.)(.*)/$1$3$2$4/s;     # 12345 -> 12435
  4. or download this
    my $str = "12345";
my $dots = "";
...
   print;
   $dots .= ".";
}