Guest User

Untitled

a guest
Jan 27th, 2013
159
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/env perl
  2.  
  3. if ("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" =~
  4.     /a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?a?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/)
  5. {
  6.     print "ok\n"
  7. }
  8. else
  9. {
  10.     print "no\n"
  11. }
RAW Paste Data