while($s >= $a) {
     $dbh->do( "INSERT INTO webpages_data VALUES('$a', '$_', '$text[$v]', NULL)");
               
     $a++;
     $v++;            
     }



##</code><code>##

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  }  sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu" );