Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl -l

...
sub get_first_part_of_address {
    return (split /\./, shift)[0]
}

Select or download this
```
elephant.com
banana
```