if ($stripped =~ /\.(\w+)\s+(\w*)$/)
{
    ($cmd, $parameter) = ($1, $2);
    # Other stuff....
}