#!/bin/perl

$line = "The last programmer quit.";

$line =~ /(programmer)|(coder)/;

print '$&   ', "$&\n";
print '$`   ', "$`\n";
print q|$'   |, "$'\n";
print '$+   ', "$+\n";
