#!/usr/bin/perl
#shell aid string constructor

$a=pop;

$a="/"x(4-length($a)%4) . $a;

$a=~s/..../push(@t,$&)/ge;

while ($b=pop(@t)) {
   my $le;
   $b=~s/./$le=unpack(H2,$&).$le/ge;
   print "push \$0x$le\n";
}
print "movl %esp,%ebx\n"