Perl segfaulter.

perl_segfault.pl (text/plain), 145 bytes, created by Dan Margolis (RETIRED) on 2004-11-23 07:08:24 UTC

#!/usr/bin/perl

$str = 'To: ';
$str .= ' <[e-mail]>,
'x4337;
$str .= 'X-UID: 45974';
my(@ret) = $str =~ /^(?:To:[ ]+(.*\n(?:\s+\S.*\n)*))/mig;