@cinco = split(/./, "gu.nt.is.kr.aq.tp");
@cuatro = split(/./, "to.sn.um.jl");
@tres = split(/./, "ek.mj");
@dos = split (/./, "di.nh.ig.mf");
@uno = split (/./, "te.'d.nc.ob.da");
@one = reverse(@uno);
@two = reverse(@dos);
@three = reverse(@tres);
@four = reverse(@cuatro);
@five = reverse(@cinco);
$string = join(" ", @uno,@dos,@tres,@cuatro,@cinco);
@fill= ( $string =~ m/../g );