if ($current_input =~ /^\s*ca\s+(\w+)\s*->\s*(\w+)\s*$/) {
	my ( $key, $value ) = ($1, $2);
	$aliases{$key} = $value;
}