perl -E 'sub func {"@_"} while (($name) = getgrent){if ($name =~ /^sometext_(\w+)/){func($name,$1);say $name}}';