Help for this page
Select Code to Download
Select
or
download this
#!/opt/bin/perl ... substr( $str, 0, pos( $str ), '' ); }