[url=http://perldoc.perl.org/functions/use.html][black][b]use[/b][/black][/url] [green]strict[/green][red];[/red]
[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]$data[/blue] = [url=http://perldoc.perl.org/functions/do.html][black][b]do[/b][/black][/url] [red]{[/red][url=http://perldoc.perl.org/functions/local.html][black][b]local[/b][/black][/url] [blue]$/[/blue][red];[/red] <DATA>[red]}[/red][red];[/red]
[url=http://perldoc.perl.org/functions/print.html][black][b]print[/b][/black][/url] [red]"[/red][purple][purple][b]\n[/b][/purple]Original:[purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[olive][b]if[/b][/olive] [red]([/red][blue]$data[/blue] =~ [red]/[/red][purple]zone:[purple][b]\s[/b][/purple]+([purple][b]\w[/b][/purple]*)(?:[purple][b]\n[/b][/purple][purple][b]\s[/b][/purple]*((?:[a-f[purple][b]\d[/b][/purple]]{2}:){7}[a-f[purple][b]\d[/b][/purple]]{2})){2}[/purple][red]/[/red][red])[/red] [red]{[/red]
[black][b]print[/b][/black] [red]"[/red][purple][purple][b]\t[/b][/purple]1 - [blue]$1[/blue][purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[black][b]print[/b][/black] [red]"[/red][purple][purple][b]\t[/b][/purple]2 - [blue]$2[/blue][purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[black][b]print[/b][/black] [red]"[/red][purple][purple][b]\t[/b][/purple]3 - [blue]$3[/blue][purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[red]}[/red]
[black][b]my[/b][/black] [blue]$mac_addy[/blue] = [red]qr{[/red][purple](?:[a-f[purple][b]\d[/b][/purple]]{2}(?::[a-f[purple][b]\d[/b][/purple]]{2}){7})[/purple][red]}[/red][red]i[/red][red];[/red]
[black][b]print[/b][/black] [red]"[/red][purple][purple][b]\n[/b][/purple]Non-grouped:[purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[olive][b]if[/b][/olive] [red]([/red][blue]$data[/blue] =~ [red]/[/red][purple]zone:[purple][b]\s[/b][/purple]+([purple][b]\w[/b][/purple]*)[purple][b]\n[/b][/purple][purple][b]\s[/b][/purple]*([blue]$mac_addy[/blue])[purple][b]\n[/b][/purple][purple][b]\s[/b][/purple]*([blue]$mac_addy[/blue])[/purple][red]/[/red][red])[/red] [red]{[/red]
[black][b]print[/b][/black] [red]"[/red][purple][purple][b]\t[/b][/purple]1 - [blue]$1[/blue][purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[black][b]print[/b][/black] [red]"[/red][purple][purple][b]\t[/b][/purple]2 - [blue]$2[/blue][purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[black][b]print[/b][/black] [red]"[/red][purple][purple][b]\t[/b][/purple]3 - [blue]$3[/blue][purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[red]}[/red]
[black][b]print[/b][/black] [red]"[/red][purple][purple][b]\n[/b][/purple]while:[purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[olive][b]if[/b][/olive] [red]([/red][blue]$data[/blue] =~ [red]m{[/red][purple]zone:[purple][b]\s[/b][/purple]+([purple][b]\w[/b][/purple]*)[/purple][red]}[/red][red]gcms[/red][red])[/red] [red]{[/red]
[black][b]print[/b][/black] [red]"[/red][purple][purple][b]\t[/b][/purple]zone - [blue]$1[/blue][purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[olive][b]while[/b][/olive] [red]([/red][blue]$data[/blue] =~ [red]m{[/red][purple][purple][b]\G[/b][/purple][purple][b]\n[/b][/purple][purple][b]\s[/b][/purple]*([blue]$mac_addy[/blue])[/purple][red]}[/red][red]gcms[/red][red])[/red] [red]{[/red]
[black][b]print[/b][/black] [red]"[/red][purple][purple][b]\t[/b][/purple]Addy - [blue]$1[/blue][purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[red]}[/red]
[red]}[/red]
[teal]__DATA__[/teal]
[teal]zone: zone_name[/teal]
[teal] 50:06:0e:80:04:58:1d:04[/teal]
[teal] 10:00:00:00:c9:6a:11:02[/teal]