ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch4/split

Text File | 1992-10-18 | 524 b | 23 lines

@chars = split(//,$word);
@fields = split(/:/,$line);
@words = split(' ',$paragraph);
@lines = split(/^/,$buffer);

print join(':', split(/ */, 'hi there'));

($login, $passwd, $remainder) = split(/:/, $_, 3);

split(/([,-])/, "1-10,20");

$* = 1;
$header =~ s/\n\s+/ /g;      # Merge continuation lines.
%head = ('FRONTSTUFF', split(/^([-\w]+):/, $header));

open(PASSWD, '/etc/passwd');
while (<PASSWD>) {
    chop;        # remove trailing newline
    ($login, $passwd, $uid, $gid, $gcos, $home, $shell) =
        split(/:/);
    ...
}